IF RtFileRequestA(req,req_string,title_req,[RTFI_FLAGS,FREQF_NOFILES,RT_WINDOW,view_window,RT_LOCKWINDOW,TRUE,RTFI_OKTEXT,get_3DView_string(GAD_SAVEGEO),TAG_DONE])
StrCopy(save_dir,req.dir,ALL)
AddPart(save_dir,'',256)
RtFreeRequest(req)
ELSE
RETURN FALSE
ENDIF
ELSE
RETURN FALSE
ENDIF
mylist:=mybase.objlist
mynode:=mylist.head
WHILE mynode
IF mynode.succ<>0
mobj:=mynode
IF (mode=MENU_SAVE_OBJALL)
saveit:=TRUE
ELSEIF ((mobj.selected=TRUE) AND (mode=MENU_SAVE_OBJSELECT))
saveit:=TRUE
ELSEIF ((mobj.selected=FALSE) AND (mode=MENU_SAVE_OBJDESELECT))
IF RtFileRequestA(req,req_string,title_req,[RTFI_FLAGS,FREQF_NOFILES,RT_WINDOW,view_window,RT_LOCKWINDOW,TRUE,RTFI_OKTEXT,get_3DView_string(GAD_SAVEDXF),TAG_DONE])
StrCopy(save_dir,req.dir,ALL)
AddPart(save_dir,'',256)
RtFreeRequest(req)
ELSE
RETURN FALSE
ENDIF
ELSE
RETURN FALSE
ENDIF
mylist:=mybase.objlist
mynode:=mylist.head
WHILE mynode
IF mynode.succ<>0
mobj:=mynode
IF (mode=MENU_SAVE_OBJALL)
saveit:=TRUE
ELSEIF ((mobj.selected=TRUE) AND (mode=MENU_SAVE_OBJSELECT))
saveit:=TRUE
ELSEIF ((mobj.selected=FALSE) AND (mode=MENU_SAVE_OBJDESELECT))
DEF req:PTR TO rtfilerequester,req_string[108]:STRING
DEF save_dir[256]:STRING
DEF b_faces
DEF n_faces
DEF mobj:PTR TO object3d
DEF p_pts,p_faces
DEF s_handle,fichier_out[256]:STRING,w_save
DEF str_1[20]:STRING
DEF str_2[20]:STRING
DEF str_3[20]:STRING
DEF mylist:PTR TO lh,mynode:PTR TO ln,saveit
IF req:=RtAllocRequestA(RT_FILEREQ,NIL)
IF RtFileRequestA(req,req_string,title_req,[RTFI_FLAGS,FREQF_NOFILES,RT_WINDOW,view_window,RT_LOCKWINDOW,TRUE,RTFI_OKTEXT,get_3DView_string(GAD_SAVERAY),TAG_DONE])
StrCopy(save_dir,req.dir,ALL)
AddPart(save_dir,'',256)
RtFreeRequest(req)
ELSE
RETURN FALSE
ENDIF
ELSE
RETURN FALSE
ENDIF
mylist:=mybase.objlist
mynode:=mylist.head
WHILE mynode
IF mynode.succ<>0
mobj:=mynode
IF (mode=MENU_SAVE_OBJALL)
saveit:=TRUE
ELSEIF ((mobj.selected=TRUE) AND (mode=MENU_SAVE_OBJSELECT))
saveit:=TRUE
ELSEIF ((mobj.selected=FALSE) AND (mode=MENU_SAVE_OBJDESELECT))
IF RtFileRequestA(req,req_string,title_req,[RTFI_FLAGS,FREQF_NOFILES,RT_WINDOW,view_window,RT_LOCKWINDOW,TRUE,RTFI_OKTEXT,get_3DView_string(GAD_SAVEBIN),TAG_DONE])